home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / New & Old.cpt / New and Old FileName / card_2086.txt < prev    next >
Text File  |  1987-10-31  |  2KB  |  67 lines
  1. -- card: 2086 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3203
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=149 top=167 right=228 bottom=435
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Install FileName & NewFileName
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put FileName( "STAK" ) into theTarget
  23.   if theTarget is empty then
  24.     beep 1
  25.     answer "Installation cancelled." with "Ok"
  26.   else
  27.     set cursor to 4 -- the watch
  28.     get second word of the long name of stack
  29.     put it into theSource
  30.     ResCopy value of theSource, theTarget, "XFCN", "FileName"
  31.     if "OK" is in the result then
  32.       ResCopy value of theSource, theTarget, "XFCN", "NewFileName"
  33.       if "OK" is in the result then answer "Installation complete." with "Ok"
  34.       else error "NewFileName"
  35.     else error "FileName"
  36.   end if
  37. end mouseUp
  38.  
  39. on error what
  40.   beep
  41.   answer "Unable to install " & what & "."  with "Cancel"
  42. end error
  43.  
  44.  
  45.  
  46. -- part 2 (field)
  47. -- low flags: 01
  48. -- high flags: 0000
  49. -- rect: left=146 top=92 right=160 bottom=432
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 3
  54. -- text size: 14
  55. -- style flags: 8192
  56. -- line height: 18
  57. -- part name: 
  58.  
  59.  
  60. -- part contents for background part 6
  61. ----- text -----
  62. 8 of 8
  63.  
  64. -- part contents for card part 2
  65. ----- text -----
  66. To install FileName and NewFileName
  67. click the button bellow and select a destination stack.